﻿Imports System.Web.Services
Imports MoniMisi2

Partial Class PruebaLogin
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   

  End Sub

  <WebMethod()> _
Public Shared Function ManejoLogin(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Return Login.ManejoLogin(pContrato)
  End Function

  <WebMethod()> _
Public Shared Function ManejoMenu(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato

    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    If Contrato.Operacion.Nombre = "Leer" Then
      '' Obtener aqui la tabla de menu segun perfil del usuario y pasarla al contrato
      Dim Usuario As Login.RegistroUsuario = CType(HttpContext.Current.Session("Usuario"), Login.RegistroUsuario)
      Dim TablaMenu As New List(Of Object)
      TablaMenu.Add(New NodoMenu("/5/", "", "Raiz", ""))
      If Not Usuario Is Nothing Then
        TablaMenu.Add(New NodoMenu("/5/1/", "/5/", "Opcion Uno", ""))
        If Usuario.Perfil = "Admin" Then
          TablaMenu.Add(New NodoMenu("/5/2/", "/5/", "Opcion Dos", ""))
        End If

        If Usuario.Perfil = "Operador" Or Usuario.Perfil = "Admin" Then
          TablaMenu.Add(New NodoMenu("/5/3/", "/5/", "Opcion Tres", ""))
          TablaMenu.Add(New NodoMenu("/5/4/", "/5/", "Opcion Cuatro", ""))
        End If


        TablaMenu.Add(New NodoMenu("/5/1/1/", "/5/1/", "Opcion Uno Uno", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/1/2/", "/5/1/", "Opcion Uno Dos", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/1/3/", "/5/1/", "Opcion Uno Tres", "/MiSistema/Opcion11.Aspx"))

        TablaMenu.Add(New NodoMenu("/5/2/1/", "/5/2/", "Opcion Dos Uno", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/2/2/", "/5/2/", "Opcion Dos Dos", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/2/3/", "/5/2/", "Opcion Dos Tres", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/2/4/", "/5/2/", "Opcion Dos Cuatro", "/MiSistema/Opcion11.Aspx"))


        TablaMenu.Add(New NodoMenu("/5/3/1/", "/5/3/", "Opcion Tres Uno", ""))
        TablaMenu.Add(New NodoMenu("/5/3/2/", "/5/3/", "Opcion Tres Dos", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/3/3/", "/5/3/", "Opcion Tres Tres", ""))
        TablaMenu.Add(New NodoMenu("/5/3/4/", "/5/3/", "Opcion Tres Cuatro", "/MiSistema/Opcion11.Aspx"))

        TablaMenu.Add(New NodoMenu("/5/3/1/1/", "/5/3/1/", "Opcion Tres Uno Uno", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/3/1/2/", "/5/3/1/", "Opcion Tres Uno Dos", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/3/1/3/", "/5/3/1/", "Opcion Tres Uno Tres", "/MiSistema/Opcion11.Aspx"))


        TablaMenu.Add(New NodoMenu("/5/3/1/1/", "/5/3/3/", "Opcion Tres Tres Uno", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/3/1/2/", "/5/3/3/", "Opcion Tres Tres Dos", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/3/1/3/", "/5/3/3/", "Opcion Tres Tres Tres", "/MiSistema/Opcion11.Aspx"))


        TablaMenu.Add(New NodoMenu("/5/4/1/", "/5/4/", "Opcion Cuatro Uno", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/4/2/", "/5/4/", "Opcion Cuatro Dos", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/4/3/", "/5/4/", "Opcion Cuatro Tres", "/MiSistema/Opcion11.Aspx"))
        TablaMenu.Add(New NodoMenu("/5/4/4/", "/5/4/", "Opcion Cuatro Cuatro", "/MiSistema/Opcion11.Aspx"))
      End If
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, TablaMenu)

    End If

    Return Contrato
  End Function

  
 
End Class

Public Structure NodoMenu
  Public Sub New(ByVal pNodo As String, ByVal pNodoPadre As String, ByVal pEtiqueta As String, ByVal pUrl As String)
    Nodo = pNodo
    NodoPadre = pNodoPadre
    Etiqueta = pEtiqueta
    Url = pUrl
  End Sub
  Public Nodo As String
  Public NodoPadre As String
  Public Etiqueta As String
  Public Url As String
End Structure
